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"FACILITY: DTS/DTR DECNET TEST PACKAGE 
ABSTRACT 
THIS MODULE IMPLEMENTS THE CONNECT, DATA, DISCONNECT, 
INTERRUPT, AND MISCELLANEOUS TEST SEQUENCES FOR DTS. 
ENVIRONMENT: DTS RUNS IN USER MODE AND REQUIRES NETWORK PRIVILEGE. 
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DECLARATIONS 
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~SBTTL DECLARATIONS 


NONE 
NONE 


D 

M 

F 

M 
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NONE 

EQUATED SYMBOLS: 
OWN STORAGE : 


INCLUDE FILES: 
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S = CONNECT TEST 355-1 9be 80:38:23 EOTSDIR. SRCIDTSTEST. MAR; 1 & 
FREE-OTS = Caner res 

; SYMBOL FOR DEBUGGING PURPOSES 


vases id 


0000 


no 

= 

oe 
. 


] 
| 
| 
+e 
FUNCTIONAL DESCRIPTION: | 
NONE 
CALLING SEQUENCE: 
BSB/JSB TSTSCONN_DTS 


OOO 000000000900 000909 090909098 INI NII NI NINO O 


4: 
+ 
0 6 : INPUT PARAMETERS: 
6 2 : R10 TEST TYPE 
0 $i R11 ADDRESS OF USERDATA COUNTED ASCII STRING 
9 5 ; IMPLICIT INPUTS: 
09 ; : TSTSGT_USERDATA 
900 9 : OUTPUT PARAMETERS: 
00 0; 
00 1: COMPLETION CODE 
é ; R1 ADDRESS OF TEST ID STRING 
0 33 R2-R9 DESTROYED 
5 : IMPLICIT OUTPUTS: 
09 : ; TSTS$GT_USERDATA UPDATED 
Ri : COMPLETION CODES: 
151 ; RO 1 = SUCCESS; 0 = FAILURE 
§ > SIDE EFFECTS: 
5: NONE 
| 
i TSTSCONN_DTS: : ; CONTROL POINT | 
111 ; 
119 : FINISH BUILDING THE CONNECT TEST REQUEST IN THE USERDATA STRING. | 
114 ; THE DTS/R CONTYPE FIELD VALUE IS DERIVED FROM BOTH THE /TYPE AND THE 
Ng ; /CNOJUSERDATA QUALIFIER VALUES. | 
117° 
118 MOVZBL W*TSTSGB_TYPE,R8 : GET TYPE QUAL IF IER VALUE | 
11 MOVZBL uTSTSGB-RETURN,RO : GET RETURN QUALIFIER VALUE 
1 9 ROTL #1 R948 : CONTYPE = RETURN * 2 + TYPE 
1 ADDB3 ROR @cR11) : UPDATE CONTYPE FIELD 
1¢¢ mOVB #2. (R11) : UPDATE USERDATA STRING LENGTH | 
1 SCASEB SELECTOR=R9,DISPL=<-  : CHECK RETURN OPTION: | 
| 


fF 7 
vou-000 TSTSCONN DTS > CONNECT TEST "BrSEp=19be OO:S5:40 LOTSDTR.eReabTstEesT mar:1 29° 4) vi 
EONNOTEST : 7RETURNSSTANDARD 
> - : _/RETURN=RECEIVED 
sos RSHERY HoTEEEA COMO UPBATE UsEROR TA OAR Ine CEnGra 
03 AB 0001'CF 8 MOVC ROLW"TSTSGT_CONN+1,3¢R115 ; APPEND THE STRING 


: ENTER INTO NSP CONNECT SEQUENCE WITH DTR. 


CONN_TEST: ; START THE CONNECT TEST 
g4oF 3 BSBW TSTSSTARTUP_DTR : INITIATE NSP CONNECT SEQUENCE 
1 E BLBC RO, CONN_ EXPECTED 3 WAS LINK ESTABLISHED? 
52 2 4 foyer #EFN_K_DISC_ABRT.R2 ; yss. ve FUNCTION/INDEX CODE 
PY a 
FFCS* 85 BSBW TST$QI ; DISCONNECT ABORT THE LINK 
CHECK_IOSB TST$GQ_LINKIOSB MAKE SURE ABORT COMPLETES 
3; STORE THE EXPECTED CONNECT ACCEPT/REJECT CODE ON THE STACK AND BUILD 
: THE EXPECTED RESPONSE COUNTED ASCII STRING IN TSTSGT_USERDATA TO COMPARE 
3 AGAINST THE ACTUAL RESPONSE RECEIVED FROM DTR. 
ONN_EXPECTED: : 
$: SCASEB SELEC TORRY .BESPL oe ; CHECK USERDATA OPTION: 
10$- 3: /NOUSERDATA 
20$- 3 /USERDATA=STANDARD 
i CONN_RESPONSE~ 3; /USERDATA=RECEIVED 
68 9% 10$: CLRB (R11) 3 
OA 11 BRB CONN_RE SPONSE ; 
68 10 +4 208: MOVB #16,TR11) ; UPDATE USERDATA STRING LENGTH 
01 AB «OOOI1'CF 10 2 MOVC3 #16,W*TSTSGT_STANDARD*+1,1(R11) ; COPY STANDARD DATA PATTERN 


; CHECK ACTUAL RESPONSE FROM DTR AGAINST EXPECTED RESPONSE. 


=t= 
AEN OS ODNANES WN 9 OD NAMES WIN OOD NAME SO ODNAUNE 


a ee ee a ee ee a a dd dd 
} PRP PRN RPA Ae ty 4 PDPRDPD GPA Be Be Be BBB EE EWI NII II Ir rrononunin) 


DC CONN_RESPONSE : : INTERROGATE RESPONSE 
28 58 EB 00 BLBS RB, 38 [BR IF CONN ACCEPT EXPECTED 
38 63 sf 006 sory R6,#MSGS$_REJECT sWAS pt gg Ot reat 
NOE Py 
50 01F58003 8F 68 06 ; MOVL § #DTS$_CINBAD,RO [NOTE UNEXPECT ACCEPT 
Nhé N_ e 
47. «11 6 hs BRB CONN FAILURE FAIL TEST 
0004 ' CF 05 006 ° TSTL W*TSTS$GQ_LINKIOSB+4 SCMECK FOR DTR REJECT 
DC ; BEQLU 108 YES, CHECK USER LENGTH 
0004 'CF Di of CMPL W*TSTS$GQ_LINKIOSB+4 ALSO DIR REJECT 
13 0079 17h Beau 108 CHECK USER DATA 
D0 : 
50 01F5801B BF DO 00 6 MOVL  #DTS$_CINREJ.RO ;SYSTEM REJECTED CONNECT 
"CF «DO 00 MOVL W°TSTSGQ_L INE LOSB+4 ,- 
“Cf ii 8 weTst Gt FAOARG SAVE NCP REASON 
A 11 06 ie BRB CONN_F AICURE FAIL TEST 


; 2 Br jai STRING LENGTH 


oe eeSESeeSeseSeSeSseeSee - — 
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Moh $4 TSTSCONN DTS - tORNeCT TEST "ersee 138 83; $$: 8 YH DISDTR.SREIDTSTEST. MAR; 1 a 3) 
3156 : 1 wPL RG. #MSGS_CONF IRM : CHECK IF CONN ACCEPTED 
EB 1 BNEGU é SUNEXPECT REJECT 
67 9 183 10S: CMPB R11), (R7) : COMPARE EXPECTED VS ACTUAL 
184 $ USERDATA STRING LENGTH 
. y 93 185 BEQLU 208 ; 1S IS OK? 
VL USRLEN, : LEN U 
50 01F58008 f Roy fon FAfLU sk EN,RO NOTE BAD LEN USER DATA 
50 A 1 : 208 MOVZBL + COMPARE EXPECTED VS ACTUAL 
01 a7 01 AB an 4 CMPC RG. iat ),1(R7) : USERDATA STRING VALUE 
Ay? : BEQLU  C ccéss : 18 IT OK? 
50 01F58013 ar p a9 ROVE OrSS BABUSROAT. »RO ‘NOTE BAD DATA 
138 CONN_SUCCESS: + TEST WAS SUCCESSFUL 
50 01 00 194 MOVL #1,R0 + SET COMPLETION CODE TO SUCCESS 
08 195 CONN_FAILURE: : ENTER HERE IF TEST FAILED 
51 0000°CF 9 196 MOVAB W*TSTSGT_CONN,R1 + RETURN ADDRESS OF TEST ID STRING 
05 OOBA 19 RSB + EXIT 


——— 
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TL ITSTSDATA_DTS = DATA TEST 
C NOWRT 


Teyegrsrest 


TSTSCODE 


; FUNCTIONAL DESCRIPTION: 
NONE 
CALLING SEQUENCE: 
BSB/JSB TSTSDATA_DTS 
INPUT PARAMETERS: 


SOOO OOOO i 


PERO ODA NE $0 OD NAN E WIN 9 OD NA UE WIN @ OOO NAU EWN" OOONAULS WOO 


R10 TEST TYPE 
R11 ADDRESS OF USERDATA COUNTED ASCII STRING 


IMPLICIT INPUTS: 
TSTSGT_USERDATA 

OUTPUT PARAMETERS: 
RO COMPLETION CODE 
R1 ADDRESS OF TEST ID STRING 
R2-R9 DESTROYED 

IMPLICIT OUTPUTS: 
TSTSGT_USERDATA UPDATED 


COMPLETION CODES: 


DOOSSSOOSOOOOOOOOoOOOC0E 
BESSSSSSSSSSeeSsssseeeeesssseseesssseeeeessseees 
PPP EEE AWA AAAI OPOPONONONONONOND. 


= Be Se Ge Ge Ge Ge Se Ge Se Ge Ge Se Ge Ge Se Ge Ge Se Se Ge Ge Se Ge Ge Se Se Ge Se Se Se Se Se Sees 


RO 1 = SUCCESS; 0 = FAILURE 
SIDE EFFECTS: 
' 
NONE 
' 
DC STSDATA_DTS:: ; CONTROL POINT 
“ue 
ie 3 
i ZVERIFY MESSAGE SIZE FIELD 
ue 3 
ue 
54 0000°CF 3¢ : ROVZWL U*TSTSGWSIZE,R4 ;CTGDIVALUE OF SIZE FIELD 
DOC SCASEB SELECTOR=TST$GB_TYPE ,DISPL=<- 
D060 24 40$- ;SINK TEST 
D0C0 3 10$- ;SEQUENCE TEST 
D0CO ¢ - ;PATTERN TEST 
Dart - sECHO TEST 
oe 108: MIN SIZE OF SEQUENCE TEST IS 4 | 
DUD 
50 06 0 0000 MOVL  #4,R0 


Veyeprsrest 


1? 
sors DATA TEST "OSE bbs b0:Se220 ED tSbTR eaepTSsecy omar: | P28 (i, 


; FINISH BUILDING THE DATA TEST REQUEST IN THE USERDATA STRING. 


03 (11 p BRB 30$ 360 TO COMMON CODE 
D 20S: :MIN SIZE OF PATT CHECK IS 5 
50 05 pO 00D MOVL #5,R0 
D 30S: :1f SIZE TOO SMALL THEN ERROR 
54 50 D CMPY sO, RG 
$ D Lea =i: 4S sIF /SIZE EXCEEDS MIN THEN OKAY 
50 p D OVL #2,r0 i ERROR COD 
011D E BRW DATA_FAILURE :60 TO COMMON ERROR CODE 
E 


WMD AP NWO OO D DOW 


OE 
59 AB p OE 2(R11),R9 : GET ADDRESS OF DTS/R DATATYPE FIELD 
89 "CF if MOVB W*TST$GB_TYPE,(R9)+ + UPDATE DATATYPE FIELD 
89 000° CF E MOVB W*TSTSGB-FLOW, (R9)+ : UPDATE FCOPT FIELD 
9 00'CF 2 OF MOVB W*TST$GB"RQUEUE,(R9)+  : UPDATE DTS/R FCVAL FIELD 
89 000° CF OF MOVB  W*TSTSGB-NAK, (RO) + : UPDATE NAKVAL FIELD 
9 ‘CF 9 F MOVB UeTSTSGB BACK, (R9) + + UPDATE BPVAL FIELD 
89  0000'CF 80 1 MOVW  WTSTSGW7SIZE,(R9)+ : UPDATE MSGLEN FIELD 
68 08 MOVB #8, (R11) + UPDATE USERDATA STRING LENGTH 
1 3 
: ENTER INTO NSP CONNECT SEQUENCE WITH DTR 
1 oO 
1 DATA_TEST: : START THE DATA TEST 
0333 «30 =«(01 BSBW TSTSSTARTUP_DTR : INITIATE NSP CONNECT | , SEQUENCE 
1150 €8 01 BLBS RO,DATA_I > WAS LINK ESTABLISHED? 
50 01f58018 BF 00 01 MOVL  #O0TS$_CTNREJ,RO 
0004°CF 00 011 MOVL  W*TSTSGQ_LINKIOSB+4,- 
0000' CF 11 88 W*TSTSGL FA 
OOE1 31 Wie 44 BRw DATA_FAICURE ; 
11F 6.291; 
: DATA NITIALIZATION 
11F 292 : DATA TEST INITIALIZATIO 
We 594° 
11F 295 DATA_INIT: ; CONTINUE 
0000'cF 7C O11F 3% CLRQ  W*TSTSGL_XMITDATA ; ZERO TRANSMIT AND RECEIVE 
1 9 3 MESSAGE COUNTER 
0000'cF 7c O01 9 CLRQ =: W* TSTSGL_XMITINTE ; ZERO TRANSMIT AND RECEIVE 
1 3 NTERRUPT MESSAGE COUNTERS 
0000'cF 01 00 01 9 MOVL #1 ,W°TSTSGL_STATUS t SET AST STATUS CODE TO SUCCESS 
"CE §8694—«COO)1 CLRB =: W* FST$GB_ASTFLAG “NOTE TIMER RUNNING 
90000000 EF ‘EF =DE 01 : MOVAL TsTe0B COREAD. TST$QB_QHEAD; INIT QUEUE HEAD 
"EF ‘EF «OE 13 ; MOVAL TST$QB"QHEAD, TST$QB-QHEAD+4 
14 5 
14 ; PUT REPETITIONS OF THE STANDARD DATA PATTERN IN THE MESSAGE BUFFER 
14 : BEGINNING AT BUFFER+4 
126 309 
53 900° F 3 14 p MOVAB W*TST$GB_XMITBUF ,R3 3 GET ADDRESS OF MESSAGE 
1 p 148 31 MOVL )e~ : INITIALIZE MESSAGE SEQUENCE NUMBER 
54 "CF «63C «(O14E §86 312 MOV ZUL w*fsT$Gw_SIZE.R4 : GET MESSAGE SIZE 
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yeu p08 TSTSDATA_ POT SUTR. Cae BT TESS MAR: 1 ° d 
04 54 e 1 13 CMPW RG wG ZANY DATA IN MESSAGE? 
6 1 1 BLEQ «8=s5$ !NO, JUST SEQUENCE 
54 4 g 1 15 SUBL2 #4,R4 : REDUCE SIZE ACCORDINGLY 
N + PU N IN BU 
FEA2' : BSBW = TSTSSTANDARD PUT STD DATA PATTERN IN BUFFER 
1 18 5$: 
1 i§ ; 
1 g : SET TIMER D. 
13 ; D 
QO0O'CF O000'CF DO 01 j MOVL _ W*TSTSGL_SECONDS ,W*TSTSGL_CLOCK ;SETUP COUNTDOWN LOCATION D 
16 4 SSETIMR_S EFN=#EFN MER- ; D 
1 DAYTIM=W*TSTSGQ_NANOSEC- ; D 
1g 6 ASTADR=W*TSTSTIMER_DTS  ; D 
1 CHECK_SS : CHECK STATUS CODE D 
iB 359 
178 0 + TRANSMIT CAND RECEIVE] DATA MESSAGES UNTIL TIMER EXPIRES p 
17 : D 
03 O02 a8 91 198 ’ CMPB 2¢R11) ,AVAL_K_TYPE_ECHO ; SHOULD DTR ECHO MESSAGE? E 
19 ff 17F BNEQU 10$ ; NO, CONTINUE E 
52 0 p 181 g MOVL § #EFN_K_RECV_DATA,R2 : GET FUNCT LON/ INDEX CODE E 
54 0000'CF 3C 0184 6 MOVZWL W°TST$GW ; [SIZE OF DATA BUFFER E 
5  0000'°CF 9 189 MOVAB WeTSTSRECVAST_DTS RS : GET ADDRESS OF AST ROUTINE E 
FE6F' 18 a Ww TST$QIOAST : START UP RECEIVE MESSAGE STREAM E 
52. 00 po 191 9 10$:  MOVL #EFN_K_READ_MAIL,R2 : GET FUNCTION/INDEX CODE E 
54 00°SF 9A 0194 340 MOVZBL #TSTSK~MAILBUF,R4 : GET MAILBOX BUFFER SIZE E 
55 0000'CF 198 341 V W°TSTSMAILAST_OTS.RS | 3 GET ADDRESS OF AST ROUTINE I 
FE6O" 19D 4¢ BSBW ss TSTSQIOAST : ISSUE READ TO MAILBOX I 
1A 4 #EFN_K_XMIT_DATA,R2 : GET FUNCTION/INDEX CODE Il 
54 o'C C OIA 4b MOVZWL W*TST$GW SIZE, : GET MESSAGE SIZE K 
55 0000°¢F . 1A 45 MOVAB W*TSTSXMITAST.DTS.RS | : GET ADDRESS OF AST ROUTINE 4 
FESO" 3 140 46 TSTSQIOAST $ START UP TRANSMIT MESSAGE STREAM " 
18 48 ; a 
18 a3 : WAIT EITHER FOR TIMER TO EXPIRE OR FOR LINK DISCONNECT " 
1B 51° ® 
07 +11 «#018 3 BRB 30$ sCHECK FOR ASTS " 
1B 53 208: 5 
18 34 ae SHIBER_S :G0 TO SLEEP TILL AN AST : 
0380099 ‘CF «=6€B «60189 Y BLBS  W°TSTSGB_ASTFLAGS,40$ ;JUMP IF TIMER EXPIRED 5 
50 ‘Fe «OOF §=«(01B REMQUE 91$TSQB_CHEAD RO SDEQUEUE AN AST T 
EB p 1c : BVS 03 SNOTHING THERE ,SLEEP T 
5 ¢ b iC MOVL TST$QB_CODE(RO) ,R2 :Q10 FUNCTION/CODE T 
54 £000 ‘EF §=3¢ icc 60 MOVZWL TSTSGWTSIZE,R :SIZE FOR DATA MSG T 
1 OD 6 CMPL BEEN KCREAD_MAIL.R2 ‘HAS A MAIL READ EXPIRED? T 
4 12 1d8 6¢ BNEQU 35$ [NOPE A DATA AST T 
54 00°SF 9A 18 63 on MOVZBL #TSTSK_MAILBUF .R4 SUSE MAIL BUFFER SIZE 1 
55  0000°CO 9 1p¢ 5 MOVL  TST$QB_ASTADR(RO),RS | ;AST ADDRESS FOR Q10 T 
FEIC’ 1E 6 SBW «sr TSTS$QIOAST 700 Q10 WITH AST T 
164 CHECK_SS [MAKE SERVICE OKAY T 
pO 3«611=«OO1E7 8 8 308 SDEQUEUE ANOTHER T 
1E9 40$: T 
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52 D0 O19 MOVL #EFN_K_DISC_SYNC,R2 ; GET FUNCTION/INDEX COD 
a a a one ! 
reor 30 OIE 37 BSBu sTSTSQl0w ¢ DESTROY LINK WITH SYNC DISCONNECT 
ei 378 CHECK_10SB TST$GQ_LINKIOSB SMAKE SURE DISCONNECT COMPLETES 
RR 
ifB 899 
FR 378 
50 o000'CF pO O1FB 37 ; POS 
0 0 DATA_FAILURE: ; ENTER HERE IF TEST FAILED 
51 0000"CF 9 039 } HOVAB W*TSTSGT_DATA,RI i RETURN ADDRESS OF TEST ID STRING 


NO ttl | BPOoDANDMA DMs i wD 


2 — tal —@ 1 


: DATA TEST IS FINISHED 
MOVL W*TSTSGL_STATUS,RO ; POST STATUS 


L ? 
SEONNECT TEST "Oro eer188e BO:Soic0 YonSDTRcaeioresesy mar; 2a? 
-SBITL ISTSDISC_DTS = DISCONNECT TEST 
"PSECT TSTSCODE NOURT 


TSTSDTSTEST = DTS TEST ROUTIN 
Mth ti TSTSDISC_DTS = DI 


| 


0 
0 
0 
: 
tri 


+ 
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FUNCTIONAL DESCRIPTION: 
NONE 
CALLING SEQUENCE: 
BSB/JSB TSTS$DISC_OTS 
INPUT PARAMETERS: 


R10 TEST TYPE 
R11 ADDRESS OF USERDATA COUNTED ASCII STRING 


IMPLICIT INPUTS: 
TSTSGT_USERDATA 
OUTPUT PARAMETERS: 
RO COMPLETION CODE 
RI og ADDRESS OF TEST 1D STRING 
IMPLICIT OUTPUTS: 
TSTSGT_USERDATA UPDATED 
COMPLETION CODES: 
RO 1 = SUCCESS; 0 = FAILURE 
SIDE EFFECTS: 
NONE 


retest ; CONTROL POINT 


: FINISH BUILDING THE DISCONNECT TEST REQUEST IN THE USERDATA STRING. 


THE DTS/R DISTYPE FIELD VALUE IS DERIVED FROM BOTH THE /TYPE AND THE 
; /CNOJUSERDATA QUALIFIER VALUES. 


DOONAN WN 2 OD NA NEW = © OOONA UNE WIN @§ SO OD NAUE WN SO OD NOUNS WN OQ OONOUS 


PANNA AI AIILAIIPIPININININININID) 9 9 OF MOOOOOOCOOCOCOCOCOOOOOOOOOODWOCOODCDCD 


BEER RP PEEP EEE E PEPE EEE PPP PPP PPP PPE 


Arnone S SSS SOOO OEE O OE EOE EEO OE OEE EEO SESS. 
Omwo PLRDPRDPRDPDPALQAEDPPAP DADA AA AAA AAA AA AAA AA AAAAAAAAAO 


MOVZBL ueTSTSGB_ TYPE ,RB 3 GET TYPE QUALIFIER VALUE 
MOVZBL W*TST GB “RETURN,RO + GET RETURN QUALIFIER VALUE 
OTL #14898 + CONTYPE = RETURN * 2 + TYPE 
02 8 ADDB3 RO.R g(R R11) + UPDATE DIST YPE FIELD 
6B 0 MOVB #2. (R11) : UPDATE USERDATA STRING LENGTH 
SCASEB SELECTOR=R9,DISPL=<- : CHECK RETURN OPTION: 
DISC_TEST- : /NORETURN 
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vith te TSTSDISC_DTS = DISCONNECT TEST Tey 7 5:38:28 TSDTR.SRCIDTSTEST.MAR; 1 2 
1¢ 44 DISC_TEST- :  /RETURN=STANDARD 
C 44 : /RETURN=RECEIVED 
oe a a A 
03 AB -0001'CF ite MOVC RBs st Stser _DISC+1,3(R11$ ; APPEND THE STRING 
44? ; 
448 ; ENTER INTO NSP CONNECT SEQUENCE WITH DTR. 
4 : 
139 DISC_TEST: ; START THE DISCONNECT TEST 
2 ; 3 43 BBW TSTSSTARTUP_DTR s INITIATE NSP CONNECT SEQUENCE 
1 é 4 BLBS RO, 10$ : WAS LINK ESTABLISHED? 
50 01F5801B BF OD 434 MOVL  #DTS$_CINREJ,RO SNOTE REJECTION 
0004'CF DO 0240 455 MOVL  W*TSTSGQ_LINKIOSB+4,- 
0000" CF 44 436 W*TSTSGL~FAOARG ;NOTE ABORT REASON 
3°11 47 43 BRB DISC_FAICURE t NO, SOMETHING WENT WRONG 
49 138 ; 
9 49 460 ; ; WAIT FOR DTR TO DISCONNECT THE LINK 
49 462° 
2 00 DO 6 49 188 10$: OVL #EFN_K_READ_MAIL.R2 : GET FUNCTION/INDEX CODE 
54 OO'BF 9A 024C 464 MOVZBL #TSTSK~MAILBUF,R4 ; GET MAILBOX BUFFER SIZE 
FDAD' 30 26 465 SBW CTS T$Q10w + WAIT FOR RESPONSE 
FDAA' 30 025 466 BSBW TSTSEXAM_MAIL ; PARSE MAILBOX MESSAGE 
52 04 D0 36 467 NOVL #EFN_K DISC. NBRT.R2 ; Ge FUNCT ION/ INDEX CODE 
; = 
FDA2" rn 0 5B 469 BSBW TST$QI0W : DISCONNECT ABORT THE LINK 
3 470 CHECK_10SB TST$GQ_LINKIOSB [MAKE SURE ABORT COMPLETES 
6 472 ; 
6 138 + STORE THE EXPECTED DISCONNECT SYNCHRONOUS/ABORT CODE ON THE STACK AND BUILD 
68 474 : THE EXPECTED RESPONSE COUNTED ASCII STR ING IN TSTSGT_USERDATA TO COMPARE 
6 fg $ AGAINST THE ACTUAL RESPONSE RECEIVED FROM DTR. 
68 477° 
6 478 DISC_EXPECTED: : 
7E 33 BO 0268 47 MOVW  § #MSG$_DISCON,-(SP) ; ASSUME SYNCHRONOUS DISCONNECT 
03 58 €9 0268 480 BLBC 8 ; BRANCH IF SYNC DISC SPECIFIED 
6 B0 6 481 MOVW #MSG$_ABORT, ; DISC ABORT IS SPECIFIED 
4 é 5$: SCASEB SFL ECTOR® =R9, DESPL=<e ; Check USERDATA OPTION: 
ha! ; /NOUSERDATA 
4 484 Nite ; /USERDATA=STANDARD 
4 4 5 DISC_RESPONSE- $ /USERDATA=RECEIVED 
68 94 0278 4 § 10$:  CLRB (R11) ; ZERO USERDATA STRING LENGTH 
11 0270 4 ; BRB DISC A SPONSE 3 CONTINUE 
68 19 30 7F 489 20$:  MOVB a TRI) uP DATE USERDATA STRING LENGTH 
01 aB ««OOOI'CF «= 10s 2 2 490 MOVC3 18cueTSTSGT. STANDARD#+1,4(R1 COPY STANDARD DATA PATTERN 
9 49 
3 438 | CHECK ACTUAL RESPONSE FROM DTR AGAINST EXPECTED RESPONSE 
9 495 
9 496 DISC_RESPONSE: : INTERROGATE RESPON SE 
56 BE 81 9 49 CMPW (SP) +, R6 : COMPARE EXPECTED VS ACTUAL 
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bite 
ISC_FAILURE: 

MOVAB 


16-SEP-1984 01 :09 VAX/VMS Macro V04-00 
g7 een 138 8) 38:03 YOTSDTR. SRCIDTSTEST.MAR; 1 

; RESPONSE FROM DTR 

10$ + 18 IT OK? 

#0TS$_DISBAD,RO ZNOTE WRONG KIND OF DISCONNECT 

Dist FAILURE ; 

(RI1T, (RP) ; COMPARE EXPECTED VS ACTUAL 
t USERDATA STRING LENGTH 

20$ 3; IS IS OK? 

#0TS$_BADUSRLEN,RO S INVALID USERDATA LENGTH 

Dist FAILURE ; 

(RI1T_R + COMPARE EXPECTED VS ACTUAL 

RO,1(R11),1(R7) + USERDATA STRING VALUE 

b1$c_succéss + IS IT OK? 

#0TS$_BADUSRDAT,RO S INVALID USER DATA 

DISC_FAILURE ; 
+ TEST WAS SUCCESSFUL 

#1,R0 : SET COMPLETION CODE TO SUCCESS 
+ ENTER HERE ta TEST FAILED 

W*TSTS$GT_DISC,R1 : RETURN ADDRESS OF TEST ID STRING 


ALT AMMaAMABOOOOO 1 =z 


8 8 
TSTSDTSTEST = DTS TEST ROUTINES @SEP=1986 01:26:09 VAX/VMS v04-00 13 
Vee p08 TSTSINTE DTS > INGERRUPT TEST Mere ke bosssico POteD TR eaeiorecessoman;1 ame 13, 
LSBTTL TSTSINTE_DTS = INTERRUPT TEST 
“BSECT TSTSCODE™ NOWRT 


:+¢ 
; FUNCTIONAL DES TPTION: 


NONE 

; ; CALLING SEQUENCE: 

BSB/JSB TSTSINTE_DTS 
: : INPUT PARAMETERS: 


R10 TEST TYPE 
R11 ADDRESS OF USERDATA COUNTED ASCII STRING 


IMPLICIT INPUTS: 

; TSTSGT_USERDATA 
; OUTPUT PARAMETERS: 

RO COMPLETION CODE 


R1 DRESS OF TEST ID STRING 
R2-R9 DESTROYED 


TSTSGT_USERDATA UPDATED 
; : COMPLETION CODES: 


BY AMM OOOOOOOOOOOOAOQAOOIOOOHOIOIOIOIOHONOAAOOOOOOAOOOAOOOOAAOAOOOOOOOOoo 


IMPLICIT OUTPUTS: 

5 

51 RO 1 = SUCCESS; 0 = FAILURE 

a SIDE EFFECTS: 

5 NONE 

; 

2 hem 

59 TSTSINTE_DTS:: : CONTROL POINT 

é VERIFY MESSAGE SIZE FIELD | 

6 iw 

54 0000°CF 6 MOVZUL W*TSTSGU SIZE RG ;CIGDIVALUE OF SIZE FIELD | 

6 SCASEB S SELECTOR=151$GB8_TYPE ,DISPL= 
? % SSINK TEST | 
2 368 108 tSEQUENCE TEST | 
2 3 +E. :PATTERN TEST | 
7 $70 c08- TECHO TEST | 
2 $7 108: SMIN SIZE OF SEQUENCE TEST IS 1 | 

50 06 ? 87% MOVL «#4, RO 


MOVL #OTS$_CINREJ,RO ;NOTE ABORTED CONNECT 
MOVL W*TSTSGQ_LINKIOSB+ 


1 

50 01F5801B BF 00 
0004 ‘CF 7 $.< 
W*TSTSGL-FAOARG ;NOTE REASON 


0000° CF 
C 


| 
Cc & 
TSTSDISTEST = DTS TEST ROUTINE 16=SEP=1984 01:26: AX/VMS Macro V04-00 Page 14 | 
you2b08 TSTSINTE DTS - INTERRUPT TEST ete 84:38:98 PT SDTR. CREIDT SESS MAR: 1 6) | 
03 11 i BRB 30¢ 360 TO COMMON CODE 
77 208: :MIN SIZE OF PATT CHECK IS 5 
50 05 00 £8 MOVL  4#5,RO 
79 30$: z1F SIZE TOO SMALL THEN ERROR | 
54 50 8} p CMPW sO, RG 
5 BLEQ © 408 y1F /SIZE EXCEEDS MIN THEN OKAY 
50 6 : MOVL  #2,RO SERROR COD 
OOF 1 P ae BRW INTE_FAILURE [GO TO COMMON ERROR CODE 
5; ; 
$ 3 FINISH BUILDING THE INTERRUPT TEST REQUEST IN THE USERDATA STRING. 
02 AB 900° CF 90 $ MOVB wW*TSTS$GB_TYPE,2(R11) : UPDATE INTTYPE FIELD 
03 AB O000'CF 90 0 MOVB  W*TSTSGB-RQUEUE,3(R11) : UPDATE INTFC FIELD 
68 03 90 MOVB «#3, (R11) + UPDATE USERDATA STRING LENGTH 
93 ; 
3 3; ENTER INTO NSP CONNECT SEQUENCE WITH DTR. 
9 e 
38 INTE_TEST: : START THE INTE TEST 
0142 3 98 BSBW TSTSSTARTUP_DTR : INITIATE NSP CONNECT SEQUENCE 
150 € 9 BLBS RO, INTE_INIT ; WAS LINK ESTABLISHED? 
91 
BRW INTE_FAICU 
00cB 31 8 8 TE_FAICURE 
6 > INTERRUPT TEST INITIALIZATION 
08 * | 
09 INTE_INIT: : CONTI 
0000'CF 7¢ 1 CLRQ = W*TSTSGL_XMITDATA + ZERO TRANSMIT AND RECEIVE 
1 : MESSAGE COUNTERS 
1 CLRQ ss W* TSTSGL_XMITINTE : ZERO TRANSMIT AND RECEIVE 
1 : INTERRUPT MESSAGE COUNTERS 
1 MOVL #1,W*TSTSGL_STATUS + SET AST STATUS CODE TO SUCCESS 
1 CLRB = W* TST$GB_ASTFLAGS “NOTE TIMER RUNNING 
1 MOVAL TST$QB_QREAD,TST$QB_QHEAD;: INIT QUEUE HEAD 
MOVAL TSTSQB~QHEAD.,TST$QB~QHEAD+4 
1 ' 


; PUT REPETITIONS OF THE STANDARD DATA PATTERN IN THE MESSAGE BUFFER 
3 BEGINNING AT BUFFER+4. 


53 Cr 9F MOVAB W"TSTSGB_INTEBUF.R3 ——; GET _ADDRESS, OF MESSAGE | 
1 2 MOVL + ; INITIALIZE MESSAGE SEQUENCE NUMBER | 
54 ‘CF «= 3C MOVZWL w*fSTSGu_SIZE,R4 3 GET MESSAGE SIZE | 

4 8 CHPU ORG AG :CTGDJANY DAT IN MESSAGE 
BLEQ = 108 3NOPE DONT FILL BUFFER | 

L ; 
54 06 SUBL2 #4 ,R4 REDUCE SIZE ACCORDINGLY 

FcB1" BSBU = TS STANDARD ; PUT STD DATA PATTERN IN BUFFER | 


BPS FMA AMA AMM) 8 0 tt 9 SS SS BOQOO DMNA AHN AHHH RW MMMMMMMMMMNOVOVVVYSD 
FRAO OQNE ABO NNN 9 BOF FOQOOOOOS FO MM OOOOOOOP OF F PPP PVH ANANOOMDP 


0000"CF 7¢ 

OOOO'cF §=01 00 

"CF 8694 

00000000 ° EF 90000000" EF DE 
00000004 ‘EF OE 


PDEA AAAAAAAAAAAAAAAAAAAAAAAAAAAO 
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TSTSDTSTEST = DTS TEST ROUTINES 16-SEP-1984 01:26:09 VAX/VMS Macro V04-00 Pp 15 
yeu p08 TSTSINTE DTS * INF ERRUPT TEST g7 SE bbe $5 ;3$:23 LOTSDTR. SREIDTSTEST MAR: 1 ~— (6) | 
4f § 10$: 
4F ; 
rt : > SET TIMER | 
4F 636 
Q0000'CF OOOO'CF DO O34F 6 $ MOVL __ W°TSTSGL_SECONDS ,W*TSTSGL_CLOCK ;SETUP COUNTDOWN LOCATION 
6 6 3 SSETIMR_S EFN=#EFN_K_TIMER- ; 
6 DAYTIM=W*TSTSGQ_NANOSEC- ; 
640 ASTADR=W*TSTSTIMER_DTS ; 
69 se CHECK_SS : CHECK STATUS CODE 
C 43; 
e¢ bts ; TRANSMIT CAND RECEIVE) INTERRUPT MESSAGES UNTIL TIMER EXPIRES 
6C 646 
2 0 036¢ ge$ MOVL #EFN_K_READ_MAIL,R2 : GET FUNCTION/INDEX CODE 
54 00° A $f 648 MOVZBL #TSTSK~MAILBUF RS : GET MAILBOX BUFFER SIZE 
55 0000'CF 3 ; 64 MOVAB W“TSTSMAILAST_OTS.RS | : GET ADDRESS OF AST ROUTINE 
FC8S* 78 650 BSBW TSTSQIOAST : ISSUE READ TO MAILBOX 
2 06 00 4: 651 MOVL $#EFN_K_XMIT_INTE,R2 : GET FUNCTION/INDEX CODE 
54 0000'CF C 3 $36 MOVZWL wW*TSTSGW_SIZE,R4 ; GET MESSAGE SIZE 
55 0000" CF 83 65 MOVAB W*TSTSINTEAST_DTS.RS | ; GET ADDRESS OF AST ROUTINE 
FC 3 8 634 BSBW TSTSQIOAST + START UP TRANSMIT MESSAGE STREAM ot 
8B 656; Di 
88 $35 ; WAIT ELTHER FOR TIMER TO EXPIRE OR FOR LINK DISCONNECT Dt 
Bs ; 
660 DL 
07—«11 88 661 BRB 30$ :CHECK FOR ASTS DL 
D 66¢ 20$ DL 
; 663 rack SHIBER_S 360 TO SLEEP TILL AN AST Dt 
B 0000'CF £8 94 665 BLBS W*TSTSGB_ASTFLAGS,40$ ;JUMP IF TIMER EXPIRED DL 
50 obp0n000' FF F 0399 66 REMQUE @1ST$QB_GHEAD.RO SDEQUEUE AN AST DL 
€B 1D 66 BVS 20$ [NOTHING THERE ,SLEEP DL 
52 C po 66 MOVL § TST$QB_CODE(RO) .R2 -Q10 FUNCTION/CODE Dt 
54 ‘EF «= -3¢ 66 MOVZ2WL TST$GW~SIZE.R4 :SIZE FOR DATA MSG DL 
5 D1 at 670 CMPL SEEN KCREAD MAIL .R2 sHAS A MAIL READ EXPIRED? Dt 
12 671 BNEQU 35$ ~ [NOPE A DATA AST Dt 
54 00°8F 9A ; 67¢ — MOVZBL #TSTSK_MAILBUF .R4 SUSE MAIL BUFFER SIZE bt 
55  0000'°CO 09 7 67% " s MOVL «=—s«sTST$QB_ASTADR(RO).RS | ;AST ADDRESS FOR Q10 Dt 
FC41° C 679 BSBW TSTSQIOAST [D0 Q10 WITH AST Di 
F id: CHECK_SS [MAKE SERVICE OKAY Di 
pos ce 67 ad BRB 30$ SDEQUEUE ANOTHER Dt 
52 03 vO 03¢4 re “ mOvE #EFN_K_DISC_SYNC,R2 : Ge FUNCTION/ INDEX CODE Dt 
4 pe 037 6 9 CLRL OR ; P2 = Dt 
FC34* 30 03¢9 BSBW  TSTSQI0OW + DESTROY LINK WITH SYNC DISCONNECT Dt 
ce 6 ; CHECK_10SB TST$GQ_LINKIOSB [MAKE SURE DISCONNECT SUCCEEDS Dt 
D 684 ; Di 
: 5 : INTERRUPT TEST IS FINISHED Dt 
D eo 
50 o0000'cF pO 030 g 8 MOVL  W*TSTSGL_STATUS,RO : POST STATUS 


vbe=008 SsRUGstESDEUTNEamuer rest = “CREBCISRS S4369D WEFAQTE.SRESBUOESOO mans F200 ” 


INTE FAILURE: NTER HERE IF TEST FAILED 
51 0000°CF E bie o36 HOVAB W*TSTSGT_INTE,R1 ; RETUR N ADDRESS OF rest D STRING 
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MEeeLLANEOUS TEST Mer Seer18Be BoiSSi20 ~EOTGUTR ceeiorescsyomans1 2° 12, 
-SBITL TSTEMISC_OTS ~ MISCELLANEOUS TEST 
TSTSCODE NOUR 


voe=008 TSHSAI 
MIS 
COD 
34+ 
; FUNCTIONAL DESCRIPTION: 
NONE 
CALLING SEQUENCE: 
BSB/JSB TSTSMISC_DTS 


INPUT PARAMETERS: 


R10 TEST TYPE 
R11 ADDRESS OF USERDATA COUNTED ASCII STRING 


; IMPLICIT INPUTS: 
TSTSGT_USERDATA 

OUTPUT PARAMETERS: 
RO COMPLETION CODE 


R1 ADDRESS OF TEST ID STRING 
R2-R9 DESTROYED 


| 
IMPLICIT OUTPUTS: 


TSTSGT_USERDATA UPDATED 
COMPLETION CODES: 
SIDE EFFECTS: 


OR ALAALAALAALAALAALAALAALAALAALAALAAL AA AAAs Les es lasleslasleslaslasiaslaslasiaslaslaslaslasleslaslasleslaslesleslasiesleslesles esl asias lesa esl esl esas sles eo ee el 
Be Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se See Se Ge Sse Se Sete 


LS I BEEN BR BR BB TR a a a a a a th a at a a ss a a ss ss 


SIDE EFFECTS: 
NONE 
TSTSMISC_DTS:: ; CONTROL POINT 
0051 +31 é BRw MISC_SUCCESS 3 
3 : FINISH BUILDING THE MISCELLANEOUS TEST REQUEST IN THE USERDATA STRING. 
0 a 
02 aB 900° CF 90 1 MOVB uo TSTSGB_ TYPE ,2(R11) ; UPDATE MISCTYPE FIELD 
68 2 6 ig MOVL #2,(R11)~ ; UPDATE USERDATA STRING LENGTH 
144 ; 
i ; ENTER INTO NSP CONNECT SEQUENCE WITH DTR. 
4 Py 
48 MISC_TEST: 3 START THE DATA TEST 
004 30 74 BSBW TSTSSTARTUP_DTR 3 INITIATE NSP CONNECT SEQUENCE 


G 8 
TSTSDTSTEST - DTS TEST ROUTI Ines 16-SEP=1 /VMS Macro V04-00 Page 1 
yous p08 TSTSAISE DTS MISCELLANEOUS TEST g: SEP. 1382 83; $$: 3 Yor TSDTR.SRCIDTSTEST.MAR; 1 ° 18 
03 59 58 F BLBS RO, 5$ : WAS LINK ESTABLISHED? 
04 BRwW MISC_FAILURE ; NO, SOMETHING WENT WRONG 
F S$: SCASEB $ LECTOR=R10,DISPL=<- ; START THE MISCELLANEOUS TEST 
F 4 - : ILLEGAL NODE NAM 
F 5 ; $- t NON-EXISTANT OBJ 
F , : : $- ; LOGICAL LINK ADD 
7E 0009" F 7D 40 7 : 10$ mova 
Q000'CE  3A4C4147 4540464 F 1p 40 139 ova B*ALILLEGAL!/ “TST$GT TLNODENAME # ONLY ONE COLON 
0000'crF 8E 7D 041 , MOVQ (SP)¥,W*TSTSGT_NODENAME ; RESTOR pNODENAME 
A 11 0619 BRB misc_§uccess ; FINISH 
7E 9000" F BO 0418 763 208 MOV W°TST$GT_OBJTYPE,-(SP) : SAVE OBJECT TYPE 
0000'CF 3935 BF BO 04 764 MOVW  #*A/59/,Q*TSTSGT_OBJTYPE ; UNKNOWN OBJECTTYPE 
10 04 765 BSBB  s- MISC_ COMMON :' COMMON CODE 
0000' CF : BO 0429 166 MOV  (SP)¥,W°TSTSGT_OBJTYPE : RESTORE OBJECTTYPE 
11 04 76 BRB MISC_SUCCESS + FINISHED 
2 10 04 7 ; 30$ BSBB = MISC" COMMON : COMMON GODE 
1 #11 7 BRB MISCSUCCESS : FINISHED 
4 770 MISC_COMMON: ; 
0S 0434 771 RSB > EXIT 
4 3 178 MISC_SUCCESS: + TEST WAS SUCCESSFUL 
50 01 DO 04 77 V #1,R0 : SET COMPLETION CODE TO SUCCESS 
4 ; 774 MISC_FAILURE: : ENTER HERE IF TEST FAILED 
51 0000'CF H 4 775 MOVAB wW*TSTSGT_MISC,R1 + RETURN ADDRESS OF TEST ID STRING 
05 0430 776 RSB : EXIT 


: 
: 
: 
: 


E 
JECTTYPE 
RE 
UATSTSGT ANODENAME .=(SP) SAVE NODENARE 
| 
} 


Roba Set Pa oe 
H 8 
voub08 TSTSSTARTUP DIR DIS/DTR INITIALIZATION ‘SoSEPo198¢ HOLSSi40 LorSbra.caeiorescss man:1 29° E8, 


~SBTTL TSTSSTARTUP_DTR = DTS/DTR INITIALIZATION 
~PSECT TSTSCODE NOWRT 


I 
~wo 


: FUNCTIONAL DESCRIPTION: 

NONE 
CALLING SEQUENCE: 

BSB/JSB TSTSSTARTUP_DTR 
INPUT PARAMETERS: 


INN 
BSOGGGGS 


NOMA WO OD NAW EW OODNOUE WO 


; NONE 
$ IMPLICIT INPUTS: 
: TSTSGT_NODENAME = COUNTED ASCII STRING OF NODENAME 
: TSTSGT-OBJTYPE = COUNTED ASCII STRING OF NSP OBJECT TYPE 
: TSTSGT-USERDATA = COUNTED ASCII STRING OF NSP USERDATA 
799 ; CONTAINING TEST REQUEST PARAMETERS FOR DTR 
o ; OUTPUT PARAMETERS: 
03; RO COMPLETION CODE 
4 04 : Rg MAILBOX MESSAGE CODE 
4 05: R ADDRESS OF RECEIVED MAILBOX DATA LESS HEADER STORED AS A 
‘ 9 3 COUNTED ASCII STRING 
4 8 : IMPLICIT OUTPUTS: 
10; TST$GQ_ACCESS = Q10 ACCESS DESCRIPTOR BLOCK 
4 11: TST$GB-NCB = CONSTRUCTED NETWORK CONNECT BLOCK 
I : TSTSGW"MAILCODE - MAILBOX MESSAGE CODE 
4 13; TSTSGW"DEV_UNIT = DEVICE UNIT NUMBER 
4 14; TSTSGT-DEV“NAME = DEVICE NAME STORED AS A COUNTED STRING 
4 15 ; TSTSGT“MAICDATA = DATA FIELD OF MAILBOX MESSAGE STORED AS A 
4 1g ; COUNTED STRING 
4 : COMPLETION CODES: 
‘ ; RO 1 = LINK WAS ESTABLISHED; 0 = LINK WAS NOT ESTABLISHED 
: ; SIDE EFFECTS: 
4: NONE 
i 3 
: TSTSSTARTUP_DTR:: : CONTROL POINT 
3c BB PUSAR Hench R3,R4,R5> > SAVE REGISTERS 
56 O000°CF ODE 0 MOVAL wW*TST$GQ_ACCESS,R6 : GET ADDRESS OF Q10 ACCESS 
1 ; DESCRIPTOR BLOCK 
53 0000" cf M3 3 MOVAL uTSTSGB_NCB,RS : GET ADDRESS OF NCB BUFFER 
04 A 3 p MOVL R3,4(R6) t UPDATE ACCESS DESCRIPTOR BLOCK 
50 $600° et A MOVZBL W*fSTSGT_NODENAME.RO  ; COPY NODEMAME INTO NCB 


o 


TR SEP=1 AX/VM 0 v04-00 Page 
TARTUP DIR = DTS/DTR aa tise "er ee ribs borssico LOvSD TR caeiorecess man;1 ame 28, 
MOVC3 RO,W“°TSTSGT_NODENAME+1, (R3) SOURCE IS COUNTED ASCII STRING 
MOV woe te ety" apbenp st 
ROVE MAN, CRB) 4 + APPEND L ADING QUOTE 
MOV gt W*TST$GT_OBJTYPE,RO COPY OBJECTTYPE INTO NCB 
movCS RO.W SDs OBIT YPE+1, ( ini SOURCE 1s COUNT ED ASCII STRING 
MOVE = #*A : APPEND DELIMITER 
CLRW + ZERO NETACP LINK INDEX 
MOVZBL wTstscr AUSERDATA,RO t COPY USERDATA STRING TO NCB 
Ince (INCLUDING THE COUNT) 
vC3 WATSTSGT, USERDATA, R3S SOURCE IS COUNTED ASCII STRING 
MOVB geht \ ns) : APPEND TRAILING QUOTE 
SUBL3 £cRO) R3, (RO) + CALCULATE AND STORE LENGTH OF NCB 


THE NSP CONNECT INITIATE REQUEST TO ACTIVATE DTR 


SCANCEL S CHAN=W“TSTSGW_MAILCHAN sCANCEL ANY MAILBOX READS 
BBM TSTSFLUSH MAIL ;CLEAN OUT ANYTHING IN MAILBOX 
K_CONN_INIT,R2 s T FUNCTION/INDEX CODE 
R é : P2 = ADDRESS OF ACCESS DESC BLOCK 
ase Mr TSf$a1 : TSSUE CONNECT INITIATE 
CHECK, 1088 Ts1$¢0_ LINKIOSB [MAKE SURE CONNECT SENT OKAY 


; DETERMINE WHETHER LINK HAS BEEN ESTABLISHED OR NOT. 


o *SSENSUENS oe 
WO OONA UN S-Wiry OOO NO UNE WO O00 
Sete te 


=—SOONOUs 


NSN NNOAAAAAAO 


VL #EFN_K_READ_MAIL,R2 : GET FUNCTION/INDEX CODE 

MOVZBL #TSTSK~MAILBUF,R4 : GET MAILBOX BUFFER SIZE 

BSBW §=s TS T$Q10w t WAIT FOR RESPONSE 

BSBW T3TSEKAR, MAIL : PARSE MAILBOX MESSAGE 

CLRL oR + SET COMPLETION CODE TO FAILURE 

CMP R #MSGS_CONF IRM : IS LINK ESTABLISHED? 

BNEQU 108 ; NO 

INCL RO : YES, SET COMP CODE TO SUCCESS 
#°M<R2,R3,R4,R5> : RESTORE REGISTERS 
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TSTSDTSTEST 
Psect synopsis 


- DTS TEST ROUTINES 


"$$Ep=198¢ 00:88:40 EDtSbra.s 


! Psect synopsis ! 


beecoeese wonaanae + 


PSECT name Allocation PSECT No. Attributes 
ABS. £8008 ) 0 ( 9-3 NOPIC USR CON ABS LCL NOSHR NOEXE 
SABSS 99000 -) OL ( J.) NOPIE USR CON ABS LCL NOSHR EXE 
TSTSCODE { 1220: 2¢ 2.) NOPIC USR CON REL LCL NOSHR- EXE 
gy oe wieersmeteonige 08 aoeesenes + 
; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 34 : 0? O: 0:6 $7 
zonnend processing J :00: 28 : O31 a 
: : e : + . 
Syabol table sort 0 :00:00. 0:00:00. 
161 3: : “98 B08: 3 
ee F table output 9 :00: 06 :00:00.35 
Psect synopsis output 0:00:00.0 0:00:00.03 
Cross-reference output 4 +9 Stet ee td 
Assembler run totals 55 0:00:09.91 :00:25.96 


{he york ing set Limit was 1709 page 

2578 bytes (64 pages) of virtual eonory were used to buffer 

a. were pages of symbol table 4 SPace oh e868 dt 

936 source Lines were read in Pass 1, producing ¢ 
pages of virtual memory were used to define 2 


he intermediate cod 

hold 234 non-local and 45 leet symbols. 
object records in Pass 2. 

macros. 


Gowocecccesoecooeceeeceesoes$ 


Sewer meee eee mE Ee Re S 


Macro library name 


~$25550UA28: DTSDTR.OBJIDTSDTR.MLB; 1 7 
$255$DUA28:(SYSLIBISTARLET.MLB; 

TOTALS (all Libraries) 

339 GETS were required to define 18 macros. 


There were no errors, warnings or information messages. 
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Page 
JDTSTEST.MAR; 1 ° 8) 


NORD _ NOVEC BYT 
RD T NOVEC BYT 
RD NOURT NOVEC BYTE 


MACRO/LIS=LISS$:DTSTEST/OBJ=OBJ$:DTSTEST MSRC$:DTPREF IX/UPDATE=(ENHS:DTPREF 1X) +MSRC$:DTSTEST/UPDATE=(ENHS$:DTSTEST) 
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